home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-04_1985_Verlag_Heinz_Weise_de.d64 / A R T E M ^ S (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  10KB  |  308 lines
  1. 1 :poke50257,0:poke53264,0
  2. 2 printchr$(8):printchr$(142)
  3. 3 forx=0to24:poke54272+x,0:nextx
  4. 10 printchr$(147):v=53248:pokev+21,0:forn=0to7:pokev+29,2^n:nextn
  5. 15 forn=0to15step2:pokev+n,0:pokev+n+1,0:nextn:pokev+23,0
  6. 20 clr:dimab(7,7):printchr$(147):poke53280,3:poke53281,3:v=53248:t=2040
  7. 25 pokev+21,255:pokev+29,255:forr=0to7:poket+r,192+r:nextr
  8. 30 forn=12288to12350:readq:poken,q:next
  9. 35 forx=0to100step4:pokev,25:pokev+1,x:pokev+39,0:nextx:gosub2000
  10. 40 forn=12352to12414:readq:poken,q:next
  11. 45 forx=255to117step-4:pokev+2,60:pokev+3,x:pokev+40,0:nextx:gosub2000
  12. 50 forn=12416to12478:readq:poken,q:nextn
  13. 55 forx=0to100step4
  14. 60 pokev+4,95:pokev+5,x:pokev+41,0:nextx:gosub2000
  15. 65 forn=12480to12542:readq:poken,q:nextn
  16. 70 forx=255to117step-4:pokev+6,130:pokev+7,x:pokev+42,0:nextx:gosub2000
  17. 75 forn=12544to12606:readq:poken,q:next
  18. 80 forx=0to100step4:pokev+8,165:pokev+9,x:pokev+43,0:nextx:gosub2000
  19. 85 forn=12608to12670:readq:poken,q:nextn
  20. 90 forx=255to100step-10:pokev+10,211:pokev+11,x:pokev+44,0:pokev+23,32:nextx
  21. 95 gosub2000
  22. 100 forn=12672to12734:readq:poken,q:nextn
  23. 105 forx=0to255step5:pokev+12,x:pokev+13,107:pokev+45,0
  24. 106 ifx<>60andx<>95andx<>130andx<>165andx<>210andx<>250then140
  25. 110 ifx=60thenpokev+39,9
  26. 115 ifx=95thenpokev+40,4
  27. 120 ifx=130thenpokev+41,2
  28. 125 ifx=165thenpokev+42,5
  29. 130 ifx=210thenpokev+43,7
  30. 135 ifx=250thenpokev+44,14
  31. 140 nextx:pokev+45,8:gosub415:forn=1to2000:nextn
  32. 145 print""
  33. 150 printtab(35)"[163]"
  34. 155 printtab(35)"[163]"
  35. 160 printtab(35)"[149][163]"
  36. 165 printtab(35)"[144][163]"
  37. 170 printtab(35)"[149][163]"
  38. 175 printtab(35)"[163]"
  39. 180 printtab(35)"[163]":forn=1to2000:nextn
  40. 185 forn=12736to12798:readq:poken,q:nextn
  41. 190 print"[145][145][145][145][145][145]"
  42. 195 d$=" v o n  d.  d z i w o s z  ":print"":da=3:r=0
  43. 200 forx=0to255step2
  44. 205 pokev+14,x:pokev+15,207:pokev+46,0
  45. 210 ifx<40then225
  46. 215 ifx<dathen225
  47. 220 r=r+1:da=da+9:print"[145]"left$(d$,r):nextx:forn=1to10:nextn
  48. 225 nextx:gosub2700:forn=1to7000:getx$:ifx$<>""thenn=7000
  49. 226 nextn
  50. 230 pokev+21,0:printchr$(147)"bitte warten"
  51. 235 forn=832to894:readq:poken,q:nextn:pokev+39,0:pokev+23,1
  52. 240 forn=896to958:readq:poken,q:nextn
  53. 245 forn=960to1022:readq:poken,q:nextn:pokev+41,1
  54. 250 forn=0to2:poke2040+n,13+n:nextn
  55. 255 b=1
  56. 260 fora=1to7:readab(a,b):nexta:b=b+1:ifb=8then270
  57. 265 goto260
  58. 270 rem
  59. 275 poke53280,3:poke53281,3:print"[147][156]             ****************          "
  60. 280 print"             *    [193][210][212][197][205][201][211]   *          "
  61. 285 print"             ****************          "
  62. 290 poke53272,23:print
  63. 295 print"[211]ie muessen mit dem [208]feil ins [211]chwarze"
  64. 300 print"treffen. [201]n zehn [214]ersuchen koennen [211]ie"
  65. 305 print"[208]unkte sammeln.":print
  66. 310 print"[206]ach [215]ahl von [197]ntfernung und [199]eschwin-"
  67. 315 print"digkeit der [193]rmbrust mit [198]euerknopf oder";
  68. 320 print"[204]eertaste kann es losgehen. ":print
  69. 325 print"[201]m richtigen [205]oment schiessen und "
  70. 330 print"[198]euerknopf oder [204]eertaste lange genug "
  71. 335 print"festhaltem ([211]chusswinkel).":print:print
  72. 375 print"[202]oystick in [208]ort 2 stecken.
  73. 380 [153]:[153]
  74. 390 [153]"          **(NULL)iel chr$lueck**":[153]
  75. 395 [153]"       (NULL)eiter mit der >(NULL)eertaste<      ":[151]198,0:x[178]1:[141]2300
  76. 400 [161]a$:[139]a$[179][177]" "[167][141]2200:[137]400
  77. 405 [153][199](147):[151]53272,21:[129]x[178]0[164]24:[151]54272[170]x,0:[130]x
  78. 410 [151]53281,7:[151]53280,7:[137]720
  79. 415 [143]
  80. 420 s[178]54272
  81. 425 [129]l[178]0[164]24:[151]s[170]l,0:[130]
  82. 430 [151]s[170]1,kl:[151]s[170]5,9:[151]s[170]15,30:[151]s[170]24,15:[151]s[170]6,15[172]16[170]10
  83. 435 [151]s[170]4,21
  84. 440 [129]c[178]1[164]100:[130]:[151]s[170]4,20
  85. 445 [142]
  86. 450 [143]
  87. 455 [131]0,126,0,0,255,0,1,255,128,3,255,192,7,195,224,15,129,240,31,0,248,62,0
  88. 460 [131]124,124,0,62,248,0,31,255,255,255,255,255,255,255,255,255,255,255,255
  89. 465 [131]240,0,15,240,0,15,240,0,15,240,0,15,240,0,15,240,0,15,240,0,15
  90. 470 [143]
  91. 475 [131]255,255,240
  92. 480 [131]255,255,248,255,255,252,255,255,254,255,255,255,240,0,15
  93. 485 [131]240,0,7,240,0,7,240,0,7,240,0,15
  94. 490 [131]255,255,255,255,255,254,255,255,252,255,255,248,240,15,128,240,7,192
  95. 495 [131]240,3,224,240,1,240,240,0,248,240,0,124,240,0,62
  96. 500 [143]
  97. 505 [131]255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  98. 510 [131]0,60,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60,0
  99. 515 [131]0,60,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60,0
  100. 520 [143]
  101. 525 [131]255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  102. 530 [131]240,0,0,240,0,0,240,0,0
  103. 535 [131]255,255,0,255,255,0,255,255,0,255,255,0
  104. 540 [131]240,0,0,240,0,0,240,0,0
  105. 545 [131]255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  106. 550 [143]
  107. 555 [131]252,0,63,254,0,127,255,0,255,255,129,255,255,195,255
  108. 560 [131]247,231,239,243,255,207,241,255,143,240,255,15,240,126,15,240,60,15
  109. 565 [131]240,24,15,240,0,15,240,0,15,240,0,15,240,0,15,240,0,15
  110. 570 [131]240,0,15,240,0,15,240,0,15,240,0,15
  111. 575 [143]
  112. 580 [131]0,16,0,0,56,0,0,124,0,0,254,0,1,255,0,3,255,128,7,57,192,0,56,0
  113. 585 [131]0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0
  114. 590 [131]0,56,0,0,56,0,0,56,0,0,56,0
  115. 595 [143]
  116. 600 [131]63,255,252,127,255,254,255,255,255,255,255,255,255,255,255,248,0,31
  117. 605 [131]240,0,31,248,0,0,255,255,252,255,255,254,255,255,255,127,255,255
  118. 610 [131]63,255,255,0,0,31,240,0,15,240,0,31,255,255,255,255,255,255
  119. 615 [131]255,255,255,127,255,254,63,255,252
  120. 620 [143]
  121. 625 [131]0,0,0,0,0,0,128,0,32,64,0,48,32,0,24,144,0,12,72,0,6,255,255,255
  122. 630 [131]255,255,255,72,0,6,144,0,12,32,0,24,64,0,48,128,0,32
  123. 635 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  124. 640 [143]
  125. 645 [131]0,24,0,0,60,0,0,255,0,3,221,192,15,24,240,56,24,28,96,24,6,16,24,8
  126. 650 [131]8,24,16,4,24,32,2,24,64,1,60,128,0,189,0,0,126,0,0,60,0,0,126,0
  127. 655 [131]0,126,0,0,126,0,0,255,0,0,255,0,0,255,0
  128. 660 [143]
  129. 665 [131]0,16,0,0,56,0,0,84,0,0,16,0,0,16,0,0,16,0,0,16,0,0,16,0,0,16,0,0,16,0
  130. 670 [131]0,16,0,0,16,0,0,16,0,0,16,0,0,16,0,0,16,0,0,16,0,0,56,0,0,16,0,0,56,0,0
  131. 675 [131]16,0
  132. 680 [143]
  133. 685 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,130,0,0,68,0
  134. 690 [131]0,40,0,0,16,0,0,40,0
  135. 695 [131]0,68,0,0,130,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  136. 700 [143]
  137. 705 [131]10,10,10,10,10,10,10,10,20,20,20,20,20,10,10,20,30,30,30,20,10
  138. 710 [131]10,20,30,50,30,20,10,10,20,30,30,30,20,10,10,20,20,20,20,20,10
  139. 715 [131]10,10,10,10,10,10,10
  140. 720 [153]"":[129]n[178]1[164]6:[153][163]1)"(NULL)lenlenlenlenlenlenlenlenlenright$"
  141. 725 [153][163]1)"peek         peek"
  142. 730 [153][163]1)"mid$lenlenlenlenlenlenlenlenlen(NULL)":[130]n
  143. 735 [153]"":[129]n[178]1[164]4:[153][163]28)"(NULL)lenlenlenlenlenlenlenlenlenright$"
  144. 740 [153][163]28)"peek         peek":[153][163]28)"mid$lenlenlenlenlenlenlenlenlen(NULL)":[130]n:di[178]0:ge[178]2.4:lo[178]0
  145. 745 [153]"tototototototototototototototototototototototototototototototo":gr[178]0
  146. 750 [153]"clrtreffer":[153]"winkel":ru[178]0:pk[178]0:ty[178]0
  147. 755 [153]"distanz>druecken<"
  148. 760 di[178]di[170]25:[153][163]29)"on"di"meter":[129]n[178]1[164]250:[130]n
  149. 765 [139]([194](56320)[175]16)[178]0[167]785
  150. 770 [161]a$:[139]a$[178]" "[167]785
  151. 775 [139]di[178]75[167]di[178]0
  152. 780 [137]760
  153. 785 [153]"on              "
  154. 790 [153]"geschwind>druecken<m/s":[151]198,0
  155. 795 ge[178]ge[170]0.2:ge$[178][196](ge):[139][195](ge$)[178]2[167]ge$[178]ge$[170]".0"
  156. 796 [153][163]29)"on"ge$:[129]n[178]1[164]250:[130]n
  157. 800 [139]([194](56320)[175]16)[178]0[167]820
  158. 805 [161]a$:[139]a$[178]" "[167]820
  159. 810 [139]ge[177][178]6[167]ge[178]2.4
  160. 815 [137]795
  161. 820 [129]n[178]1[164]1000:[130]n:[153]"on              "
  162. 825 [153]"summe":[153]"runde":[129]n[178]1[164]1000:[130]n
  163. 830 ru[178]ru[170]1:[153]"stop"pk:[129]n[178]1[164]1500:[130]n:[151]198,0
  164. 835 [139]ru[177]10[167]1215
  165. 840 [153]""ru
  166. 845 [153]"":[129]n[178]1[164]2:[153][163]13)"sgn sgn contsgn stopsgn+cont + + +":[130]n
  167. 850 [139]di[178]0[167]di[178]25
  168. 855 gr[178]0:[153]""[163]29)"        ":[153]""[163]29)"       %"
  169. 860 [129]x[178]0[164]225[169]ge:[151]v[170]0,x:[151]v[170]1,210:[151]v[170]21,1
  170. 865 [161]a$:[139]a$[178]" "[167][141]885:[137]875
  171. 870 jv[178][194](56320):[139](jv[175]16)[178]0[167][141]885
  172. 875 [139]gr[177]0[167]x[178]225
  173. 880 [130]x:[137]830
  174. 885 [151]198,0:[151]v[170]40,0
  175. 890 [129]n[178]1[164]17:jv[178][194](56320):[129]m[178]1[164]5:[130]m
  176. 895 [139](jv[175]16)[178]0[167]gr[178]gr[170]1:a$[178]"":[137]905
  177. 900 [161]a$:[139]a$[178]" "[167]gr[178]gr[170]1
  178. 905 [153]""[163]31)gr:[130]n
  179. 910 [151]198,0:[139]di[178]25[167]925
  180. 915 [139]di[178]50[167]975
  181. 920 [139]di[178]75[167]1025
  182. 925 [139]gr[177]7[167]lo[178]1:[137]1370
  183. 930 [139]gr[178]7[167]z[178]48:b[178]1
  184. 935 [139]gr[178]6[167]z[178]68:b[178]2
  185. 940 [139]gr[178]5[167]z[178]88:b[178]3
  186. 945 [139]gr[178]4[167]z[178]96:b[178]4
  187. 950 [139]gr[178]3[167]z[178]107:b[178]5
  188. 955 [139]gr[178]2[167]z[178]124:b[178]6
  189. 960 [139]gr[178]1[167]z[178]144:b[178]7
  190. 965 [139]gr[178]0[167]lo[178]2:[137]1370
  191. 970 [137]1070
  192. 975 [139]gr[177]11[167]lo[178]1:[137]1370
  193. 980 [139]gr[178]11[167]z[178]48:b[178]1
  194. 985 [139]gr[178]10[167]z[178]68:b[178]2
  195. 990 [139]gr[178]9[167]z[178]88:b[178]3
  196. 995 [139]gr[178]8[167]z[178]96:b[178]4
  197. 1000 [139]gr[178]7[167]z[178]107:b[178]5
  198. 1005 [139]gr[178]6[167]z[178]124:b[178]6
  199. 1010 [139]gr[178]5[167]z[178]144:b[178]7
  200. 1015 [139]gr[179]5[167]lo[178]2:[137]1370
  201. 1020 [137]1070
  202. 1025 [139]gr[177]15[167]lo[178]1:[137]1370
  203. 1030 [139]gr[178]15[167]z[178]48:b[178]1
  204. 1035 [139]gr[178]14[167]z[178]68:b[178]2
  205. 1040 [139]gr[178]13[167]z[178]88:b[178]3
  206. 1045 [139]gr[178]12[167]z[178]96:b[178]4
  207. 1050 [139]gr[178]11[167]z[178]104:b[178]5
  208. 1055 [139]gr[178]10[167]z[178]124:b[178]6
  209. 1060 [139]gr[178]9[167]z[178]144:b[178]7
  210. 1065 [139]gr[179]9[167]lo[178]2:[137]1370
  211. 1070 [139]x[179]103[176]x[177]215[167][137]1370
  212. 1075 [139]x[177][178]103[175]x[179]119[167]a[178]1
  213. 1080 [139]x[177][178]119[175]x[179]135[167]a[178]2
  214. 1085 [139]x[177][178]135[175]x[179][178]155[167]a[178]3
  215. 1090 [139]x[177]155[175]x[179]167[167]a[178]4
  216. 1095 [139]x[177][178]167[175]x[179]183[167]a[178]5
  217. 1100 [139]x[177][178]183[175]x[179]199[167]a[178]6
  218. 1105 [139]x[177][178]199[175]x[179][178]216[167]a[178]7
  219. 1110 [141]2500
  220. 1113 [129]y[178]216[164]74[169][171]2:[151]v[170]2,x:[151]v[170]3,y:[151]v[170]21,3:[130]y:[141]2700
  221. 1115 pu[178]ab(a,b):pk[178]pk[170]pu:[139]pu[178]50[167]ty[178]ty[170]1
  222. 1120 [129]n[178]1[164]1000:[130]:[151]v[170]4,x:[151]v[170]5,z:[151]v[170]21,0:[153]""[163]31)pu
  223. 1125 [153]""[163]13)"(NULL)lenlenlenlenlenlenlenlenlenlenlenlenright$"
  224. 1130 [153][163]13)"peek            peek"
  225. 1135 [153][163]13)"peekclose(NULL)lenlenlenlenlenlenlenlenright$closepeek"
  226. 1140 [153][163]13)"peekclosepeekcloseclosecloseclosecloseclosecloseclosepeekclosepeek"
  227. 1145 [153][163]13)"peekclosepeekclose(NULL)lenlenlenlenright$closepeekclosepeek"
  228. 1150 [153][163]13)"peekclosepeekclosepeekcloseclosecloseclosepeekclosepeekclosepeek"
  229. 1155 [153][163]13)"peekclosepeekclosepeekclose(NULL)right$ peekclosepeekclosepeek"
  230. 1160 [153][163]13)"peekclosepeekclosepeekclosemid$(NULL)closepeekclosepeekclosepeek"
  231. 1165 [153][163]13)"peekclosepeekclosepeek    peekclosepeekclosepeek"
  232. 1170 [153][163]13)"peekclosepeekclosemid$lenlenlenlen(NULL)closepeekclosepeek"
  233. 1175 [153][163]13)"peekclosepeekcloseclosecloseclosecloseclosecloseclosepeekclosepeek"
  234. 1180 [153][163]13)"peekclosemid$lenlenlenlenlenlenlenlen(NULL)closepeek"
  235. 1185 [153][163]13)"peekcloseclosecloseclosecloseclosecloseclosecloseclosecloseclosepeek
  236. 1190 printtab(13)"[202][195][195][195][195][195][195][195][195][195][195][195][195][203]
  237. 1195 [151]v[170]21,4
  238. 1200 [129]n[178]1[164]2500:[130]n:[151]v[170]21,0:[153]""[163]13)"              "
  239. 1205 [129]n[178]1[164]16:[153][163]13)"               ":[130]n
  240. 1210 [142]
  241. 1215 [151]53269,0:[153]"load"
  242. 1225 [139]pk[179]400[175]pk[177][178]200[167]1280
  243. 1230 [139]pk[177][178]400[167]1310
  244. 1235 [153]"sysdas war sehr schlecht !!
  245. 1240 print"sie haben nur"pk"punkte erreicht
  246. 1245 [139]ty[178]0[167][153]"und nicht einmal
  247. 1250 ifty=0thenprint"ins schwarze getroffen.
  248. 1255 [139]ty[177]0[167][153]"sie haben nur"ty"mal ins"
  249. 1260 [139]ty[177]0[167][153]"schwarze getroffen.
  250. 1265 print"sie muessen noch viel ueben !!
  251. 1275 [137]1355
  252. 1280 [153]"sysdas war nicht schlecht !
  253. 1285 print"sie haben"pk"punkte erreicht
  254. 1290 [139]ty[177]0[167][153]"und"ty"mal ins schwarze getroffen."
  255. 1295 [153]"versuchen sie ihr ergebnis"
  256. 1300 [153]"zu verbessern.
  257. 1305 goto1355
  258. 1310 print"[158]das war sehr gut !!!
  259. 1315 [153]"sie haben"pk"punkte erreicht"
  260. 1320 [153]"und dabei"ty"mal ins
  261. 1325 print"schwarze getroffen.
  262. 1330 [139]pk[179]500[167][153]"versuchen sie an 500
  263. 1335 ifpk<500thenprint"punkte heranzukommen.
  264. 1340 [139]pk[178]500[167][153]"sie haben die maximale
  265. 1345 ifpk=500thenprint"punktzahl erreicht !!
  266. 1350 [139]pk[178]500[167][153]" **herzlichen glueckwunsch!**
  267. 1355 print"bitte eine taste druecken !"
  268. 1356 forn=120to999:d=peek(1024+n)
  269. 1357 ifd<>32thenpoke55296+n,6:poke1024+n,d
  270. 1359 nextn
  271. 1360 geta$:ifa$=""then1360
  272. 1365 poke198,0:goto275
  273. 1370 gosub2500
  274. 1372 fory=215to0step-2:pokev+2,x:pokev+3,y:pokev+21,3:nexty:print"":gr=1
  275. 1375 ifx<103orx>215thenreturn
  276. 1380 iflo=1thenprinttab(30)"zu hoch"
  277. 1385 iflo=2thenprinttab(30)"zu tief"
  278. 1390 forn=1to1000:return
  279. 2000 rem
  280. 2020 poke54272+24,15+16:poke54272+23,1+15*16
  281. 2030 poke54272+6,0:poke54272+4,0:poke54272+5,0
  282. 2040 poke54272+5,1*16+10:poke54272+4,33:h1=54272+1:h2=54272+22:pokeh1,20
  283. 2050 forx=100to0step-4:pokeh2,x:pokeh1,100-x:nextx
  284. 2060 return
  285. 2200 rem
  286. 2210 poke54272+1,x:x=x+1:ifx>200thenx=0
  287. 2220 return
  288. 2300 poke54272+24,15+128:forx=0to23:poke54272+x,0:nextx
  289. 2310 poke54272+6,255:poke54272+4,19:poke54272+1,10
  290. 2315 poke54272+14+6,255:poke54272+14+4,17:poke54272+15,10
  291. 2320 return
  292. 2500 rem
  293. 2510 poke54272+24,15+32:poke54272+6,0:poke54272+5,0:poke54272+4,0
  294. 2520 poke54272+5,1*16+11:poke54272+4,129
  295. 2530 poke54272+1,50:poke54272+23,1:h2=54272+22
  296. 2540 forh1=100to1step-1:pokeh2,h1:next:poke54272+6,0:poke54272+5,0
  297. 2550 poke54272+4,0:return
  298. 2700 rem
  299. 2710 poke54272+24,0:poke54272+6,0:poke54272+5,0:poke54272+4,0
  300. 2715 poke54272+23,1
  301. 2720 poke54272+14+6,255
  302. 2730 poke54272+14+4,17:poke54272+14+1,3:poke54272+5,1*16+11:poke54272+4,21
  303. 2740 poke54272+1,2:poke54272+24,15+128+16
  304. 2750 q=54272+22:forw=1to15
  305. 2760 fore=150to0step-9:pokeq,e:nexte,w
  306. 2770 fore=0to23:poke54272+e,0:nexte
  307. 2780 return
  308.